home *** CD-ROM | disk | FTP | other *** search
/ Chip 1997 March / CHIP Mart 1997.iso / SurfCam / SURFCAM.Z / FAN15HS.M3 < prev    next >
Text File  |  1996-04-01  |  4KB  |  146 lines
  1. name Fanuc High Speed 15M
  2.  
  3. % 00
  4. / 00
  5. O 4
  6. N >4
  7. G >2
  8. g >2 G
  9. q >2.>1 G
  10. L 1
  11. a 4 Q
  12. X ->3.>4
  13. Y ->3.>4
  14. Z ->3.>4
  15. I ->3.>4
  16. J ->3.>4
  17. K ->3.>4
  18. Q ->3.>4
  19. R ->3.>4
  20. P 4
  21. F >3.1
  22. H >2
  23. D >2
  24. T >2
  25. S >5
  26. M >2
  27.  
  28. ModalLetters X Y Z F R S M Q          # List of letters that are modal    
  29.  
  30. ModalGs 0 1 2 3 73 74 76 80 81 82 83 84 85  # List of g codes that are modal    
  31.  
  32. Sequence#s N 0 5 5                    # Char, freq, incr & start          
  33.  
  34. HCode X                               # X or X U  'Horizontal char.       
  35. VCode Y                               # Y or Y V  'Vertical char.         
  36. Dcode Z                               # Depth char.                       
  37. FeedCode F                            # Feed rate char.                   
  38.  
  39. Comment ( )                           # Begin End comment char.           
  40.  
  41. Spindle 3 4 5                         # Cw, ccw & stop m codes            
  42. Coolant 8 9 7                         # On, Off & Mist m codes            
  43. DComp 41 42 40                        # Left, Right & Cancel m codes      
  44. LComp 43 49                           # On & Off codes                    
  45.  
  46. Feed G1                             # Linear move                       
  47. Rapid G0                            # Rapid positioning word            
  48. Cw G2                               # Circular move clockwise           
  49. Ccw G3                              # Circular move counter clockwise   
  50.  
  51. Inc/Abs G 91 90                       # Inc & Abs char. & values          
  52.  
  53. CtrCode I J                           # I J or R or I J K L               
  54. Helical? Y
  55.  
  56. Spaces? Y                             # Y or N  'Spaces between words     
  57.  
  58. Incremental? N                        # Y or N  'Inc or abs output        
  59. CtrIncremental? Y                     # Y or N  'Inc or abs I & J         
  60. ByQuadrants? N                        # Y or N  'Break arcs at quadrants  
  61.  
  62. UppercaseComments? Y                  # Y or N 'Require uppercase comments
  63.  
  64. Drill                                 # Drilling canned/manual cycle      
  65. G81 X[H] Y[V] Z[D] R[Vclear] F[FRate]
  66. end cancel
  67.  
  68. Peck                                  # Pecking canned/manual cycle       
  69. G83 X[H] Y[V] Z[D] Q[VBite] R[Vclear] F[FRate]
  70. end cancel
  71.  
  72. Tap                                   # Tapping canned/manual cycle       
  73. G84 X[H] Y[V] Z[D] R[Vclear] F[FRate]
  74. end cancel
  75.  
  76. LTap                                  # Left handed tapping cycle         
  77. G74 X[H] Y[V] Z[D] R[Vclear] F[Frate]
  78. end cancel
  79.  
  80. Ream                                  # Reaming canned/manual cycle       
  81. G85 X[H] Y[V] Z[D] R[Vclear] F[FRate]
  82. end cancel
  83.  
  84. Bore                                  # Boring canned/manual cycle        
  85. G86 X[H] Y[V] Z[D] R[Vclear] F[FRate]
  86. end cancel
  87.  
  88. Back                                  # Back boring canned/manual cycle   
  89. G87 X[H] Y[V] Z[D] R[Vclear] F[FRate]
  90. end cancel
  91.  
  92. Cancel                                # Cancel a canned/manual cycle      
  93. G80
  94. end
  95.  
  96. StartCode                             # Start of the program              
  97. %0
  98. Ask [Val1] "Enter Program Number" "1"
  99. O[Val1]
  100. End
  101.  
  102. 1stToolChange                         # First tool change                 
  103. G0 G17 G40 G94
  104. T[Tool] M6
  105. G90 G[Work]
  106. G91 X[H] Y[V]
  107. S[Speed] M[Direct]
  108. G43 Z[D] H[Lcomp]
  109. M[Cool]
  110. End
  111.  
  112. BeginRow
  113. q10.3 L1 a[Val1]
  114. End
  115.  
  116. EndRow
  117. q11.3 
  118. End
  119.  
  120. Infeed                                # Enable cutter comp                
  121. G[Side] X[H] Y[V] D[DComp] F[FRate]
  122. end
  123.  
  124. Outfeed                               # Disable cutter comp               
  125. G1 G40 X[H] Y[V]
  126. end
  127.  
  128. ToolChange                            # Secondary tool changes            
  129. M9
  130. G0 G90
  131. g91 G28 Z0 M19
  132. T[Tool] M6
  133. G[Work] G90 X[H] Y[V]
  134. S[Speed] M[Direct]
  135. G43 Z[D] H[Lcomp]
  136. M[Cool]
  137. End
  138.  
  139. EndCode                               # End of the program                
  140. G0 G90 g91 G28 Z0
  141. G49 M9
  142. G91 G28 M19
  143. M30
  144. %0
  145. End
  146.